unit UDM;

interface

uses
  SysUtils, Classes, DB, DBTables, UDPTOUteis, Dialogs, Forms;

type
  TConnect = class(TDataModule)
    db1: TDatabase;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Connect: TConnect;

implementation


{$R *.dfm}

procedure TConnect.DataModuleCreate(Sender: TObject);
begin
  db1.Close;
  // db1.Params.LoadFromFile(Copy(DBNome,1,length(DBNome)-4) + '.con'); // para acessar remoto
  db1.Params.LoadFromFile('C:\EFOp\'+Copy(DBNome,1,length(DBNome)-4) + '.con'); // para acessar remoto

end;

end.
